home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / c64-games.disk / winter1.d64 / ultraload (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-03  |  9.0 KB  |  291 lines
  1. 19 :
  2. 20 PRINTCHR$(9);CHR$(14)
  3. 21 PRINT"[208]RUEFE [196]ATA-[218]EILEN."
  4. 22 T=0
  5. 23 GOSUB80
  6. 30 IF F THEN STOP
  7. 31 :
  8. 40 PRINT"[203]EIN [198]EHLER."
  9. 41 PRINT"[202]ETZT WIRD [213]LTRALOAD [208]LUS"
  10. 42 PRINT"AUF [196]ISKETTE GESCHRIEBEN."
  11. 43 T=1
  12. 44 OPEN2,8,2,"ULTRALOAD PLUS,P,W"
  13. 45 GOSUB80
  14. 46 CLOSE2
  15. 47 PRINT"[198]ERTIG."
  16. 48 END
  17. 79 :
  18. 80 RESTORE
  19. 81 F=0
  20. 82 FORI=1TO255
  21. 83 S=0
  22. 84 FORJ=1TO8
  23. 85 READ A$
  24. 86 H=ASC(LEFT$(A$,1))
  25. 87 L=ASC(RIGHT$(A$,1))
  26. 88 H=H-48:IFH>15THENH=H-7
  27. 89 L=L-48:IFL>15THENL=L-7
  28. 90 B=16*H+L
  29. 91 IF T THENPRINT#2,CHR$(B);
  30. 92 S=S+B
  31. 93 NEXTJ
  32. 94 READC
  33. 95 IF S<>C THEN PRINT"[198]EHLER IN [218]EILE";I+99;"!":F=1
  34. 96 NEXTI
  35. 97 RETURN
  36. 100 DATA01,08,1E,08,C1,07,9E,20, 437
  37. 101 DATA32,30,38,30,2C,30,30,32, 392
  38. 102 DATA38,38,2C,31,39,32,2C,32, 406
  39. 103 DATA31,34,2C,4E,2C,33,00,00, 318
  40. 104 DATA00,20,FD,AE,20,EB,B7,86, 1043
  41. 105 DATA02,20,FD,AE,20,9E,B7,8A, 972
  42. 106 DATA18,E5,02,85,06,20,FD,AE, 853
  43. 107 DATAA2,03,A0,04,C9,48,F0,0B, 853
  44. 108 DATAA2,04,A0,02,C9,4E,F0,03, 850
  45. 109 DATA4C,08,AF,8E,C9,0B,8C,CD, 958
  46. 110 DATA0B,20,73,00,20,FD,AE,A2, 779
  47. 111 DATA2C,A0,A9,C9,32,F0,08,A2, 1034
  48. 112 DATA20,A0,91,C9,33,D0,E1,8E, 1164
  49. 113 DATA78,0F,8E,A8,0F,8C,3E,0B, 673
  50. 114 DATAC9,32,D0,11,A6,65,86,03, 880
  51. 115 DATAE8,86,04,E8,86,02,8A,A2, 1038
  52. 116 DATA08,A4,65,D0,12,A6,02,E8, 899
  53. 117 DATAE8,86,03,E8,86,04,A5,65, 1005
  54. 118 DATA18,69,04,A2,04,A4,02,85, 598
  55. 119 DATA64,85,FD,8D,E5,09,18,69, 994
  56. 120 DATA05,8D,E2,09,8D,F2,09,8D, 914
  57. 121 DATA12,0A,8D,E8,09,8D,EF,09, 799
  58. 122 DATA8E,29,0B,84,05,20,73,00, 478
  59. 123 DATAA5,14,18,69,2A,8D,B8,0F, 696
  60. 124 DATAA5,15,69,00,8D,B9,0F,78, 752
  61. 125 DATAA5,01,48,A9,34,85,01,A2, 755
  62. 126 DATA06,A0,00,A9,18,85,C3,A9, 856
  63. 127 DATA0A,85,C4,84,FC,B1,C3,E0, 1319
  64. 128 DATA01,F0,04,E0,05,90,40,C9, 883
  65. 129 DATA76,F0,2B,C9,77,F0,1E,C9, 1192
  66. 130 DATA74,F0,1D,C9,75,F0,1C,C9, 1172
  67. 131 DATA79,F0,0F,C9,78,B0,1B,C9, 1101
  68. 132 DATA71,90,17,E9,71,18,65,02, 753
  69. 133 DATA90,1D,A5,06,2C,A5,04,2C, 601
  70. 134 DATAA5,65,2C,A5,05,2C,A5,03, 692
  71. 135 DATAB0,0D,C9,D9,B0,09,C9,D3, 1204
  72. 136 DATA90,05,E9,D3,18,65,64,91, 963
  73. 137 DATAFC,C8,D0,B1,E6,C4,E6,FD, 1746
  74. 138 DATACA,D0,AA,68,85,01,58,A5, 1071
  75. 139 DATA14,8D,F7,09,A5,15,8D,F9, 993
  76. 140 DATA09,A9,6D,A0,09,20,1E,AB, 689
  77. 141 DATAA0,52,B9,C6,09,91,14,88, 935
  78. 142 DATA10,F8,A5,14,18,69,30,85, 759
  79. 143 DATA14,AA,A5,15,69,00,85,15, 635
  80. 144 DATA20,CD,BD,A9,0D,20,D2,FF, 1105
  81. 145 DATA20,D2,FF,6C,14,00,0D,0D, 651
  82. 146 DATA09,0E,2A,20,75,4C,54,52, 456
  83. 147 DATA41,4C,4F,41,44,20,70,4C, 573
  84. 148 DATA55,53,20,41,4B,54,49,56, 583
  85. 149 DATA0D,2A,20,73,54,45,50,20, 467
  86. 150 DATA3A,20,37,20,20,75,4C,54, 486
  87. 151 DATA52,41,53,45,41,52,43,48, 585
  88. 152 DATA0D,2A,20,28,43,29,20,31, 316
  89. 153 DATA39,38,35,20,6D,41,52,54, 538
  90. 154 DATA49,4E,20,70,46,4F,53,54, 611
  91. 155 DATA0D,2A,20,69,4E,49,54,20, 459
  92. 156 DATA3A,20,53,59,53,20,00,85, 510
  93. 157 DATA93,A5,BA,C9,04,B0,03,4C, 958
  94. 158 DATAA7,F4,A0,00,B1,BB,C9,24, 1172
  95. 159 DATAF0,F5,78,A5,01,A2,34,86, 1119
  96. 160 DATA01,8D,DD,D8,AD,00,71,4D, 942
  97. 161 DATADC,D8,49,E4,D0,19,4C,52, 1128
  98. 162 DATAD8,AE,DD,D8,86,01,58,A2, 1212
  99. 163 DATA4D,A0,4D,8E,30,03,8C,31, 696
  100. 164 DATA03,B0,03,4C,AA,F5,60,A2, 931
  101. 165 DATAA5,A0,F4,8E,30,03,8C,31, 951
  102. 166 DATA03,AD,DD,D8,85,01,4C,A7, 990
  103. 167 DATAF4,84,90,B1,BB,C9,3A,F0, 1383
  104. 168 DATA07,C8,C4,B7,90,F5,A0,FF, 1390
  105. 169 DATAC8,84,FE,B1,BB,9D,08,D7, 1330
  106. 170 DATAC8,E8,E0,10,90,F5,A5,B7, 1409
  107. 171 DATA38,E5,FE,8D,07,D7,BA,8E, 1230
  108. 172 DATADE,D8,A9,36,85,01,AD,00, 968
  109. 173 DATADD,29,07,8D,3A,73,8D,B9, 909
  110. 174 DATA72,09,20,8D,97,72,09,10, 586
  111. 175 DATA8D,1E,73,49,20,8D,1A,73, 673
  112. 176 DATAA0,10,AA,A9,04,85,FE,B9, 1091
  113. 177 DATA6E,72,9D,F0,76,E8,88,F0, 1347
  114. 178 DATA0A,C6,FE,D0,F2,8A,18,69, 1179
  115. 179 DATA3C,90,E7,AD,15,D0,85,FF, 1225
  116. 180 DATA8C,15,D0,A9,72,48,A9,5C, 985
  117. 181 DATA48,A5,B7,D0,03,4C,10,F7, 970
  118. 182 DATA20,AF,F5,A0,00,A5,BA,20, 995
  119. 183 DATA0C,ED,A9,6F,20,B9,ED,24, 1019
  120. 184 DATA90,10,03,4C,07,F7,B9,3F, 741
  121. 185 DATA73,C8,C9,FE,B0,05,20,DD, 1204
  122. 186 DATAED,90,F3,08,20,FE,ED,28, 1195
  123. 187 DATAF0,DB,78,2C,00,DD,30,FB, 1143
  124. 188 DATAA9,19,A2,D7,20,FD,72,A9, 1139
  125. 189 DATA52,A2,D6,20,FD,72,2C,00, 901
  126. 190 DATADD,30,FB,2C,00,DD,10,FB, 1052
  127. 191 DATA2C,00,DD,50,03,4C,04,F7, 675
  128. 192 DATAA9,99,A2,D5,20,FD,72,2C, 1140
  129. 193 DATA00,DD,30,FB,20,D2,F5,A2, 1169
  130. 194 DATA2C,A5,93,D0,02,A2,4C,8E, 946
  131. 195 DATA1D,72,8E,36,72,20,96,72, 749
  132. 196 DATAAD,02,76,AE,03,76,A4,B9, 937
  133. 197 DATAD0,04,A5,C3,A6,C4,85,AE, 1241
  134. 198 DATA86,AF,A2,02,D0,05,20,96, 868
  135. 199 DATA72,A2,00,A0,00,BD,02,76, 745
  136. 200 DATAE8,48,A5,AF,38,E9,75,90, 1194
  137. 201 DATA25,C9,04,B0,21,69,74,85, 805
  138. 202 DATAAF,A9,34,85,01,68,4C,26, 748
  139. 203 DATA72,51,AE,F0,04,D0,17,91, 989
  140. 204 DATAAE,A5,AF,E9,79,85,AF,A9, 1345
  141. 205 DATA36,85,01,4C,46,72,68,4C, 628
  142. 206 DATA44,72,51,AE,F0,09,A9,10, 871
  143. 207 DATA85,90,18,90,4A,91,AE,E6, 1068
  144. 208 DATAAE,D0,02,E6,AF,EC,01,76, 1144
  145. 209 DATA90,B3,AD,00,76,D0,A7,A9, 1158
  146. 210 DATA40,85,90,18,A9,00,78,A8, 822
  147. 211 DATAA5,FF,8D,15,D0,A2,34,86, 1138
  148. 212 DATA01,AE,DE,D8,9A,4C,7E,D8, 1185
  149. 213 DATA00,00,00,00,04,08,40,80, 204
  150. 214 DATA01,02,10,20,05,0A,50,A0, 306
  151. 215 DATA68,68,4C,04,F7,AD,19,D0, 941
  152. 216 DATA8D,19,D0,4C,7E,EA,38,AD, 1039
  153. 217 DATA97,72,8D,00,DD,D0,C5,A0, 1192
  154. 218 DATA27,2C,00,DD,10,FB,70,E0, 907
  155. 219 DATA8C,00,DD,AD,11,D0,30,0D, 820
  156. 220 DATAAD,12,D0,C9,2C,90,06,29, 835
  157. 221 DATA07,49,03,D0,EE,A9,04,85, 835
  158. 222 DATAFE,A9,07,8D,00,DD,2C,00, 836
  159. 223 DATADD,30,FB,EA,EA,2C,00,DD, 1253
  160. 224 DATA30,03,A6,4D,EA,AE,00,DD, 923
  161. 225 DATABD,00,77,AE,00,DD,1D,01, 733
  162. 226 DATA77,EA,AE,00,DD,1D,02,77, 898
  163. 227 DATAAE,00,DD,8C,00,DD,1D,03, 788
  164. 228 DATA77,8D,00,76,EE,E9,72,F0, 1203
  165. 229 DATA06,C6,FE,D0,C4,F0,AC,AD, 1447
  166. 230 DATAB9,72,8D,00,DD,60,85,FC, 1142
  167. 231 DATA86,FD,2C,00,DD,50,FB,A0, 1143
  168. 232 DATA00,A2,34,86,01,B1,FC,A2, 940
  169. 233 DATA36,86,01,48,85,FE,A2,08, 818
  170. 234 DATA66,FE,A9,17,90,02,A9,37, 918
  171. 235 DATAEA,8D,00,DD,EA,EA,29,EF, 1344
  172. 236 DATA8D,00,DD,CA,D0,EA,68,C9, 1311
  173. 237 DATAF2,F0,07,C8,D0,D3,E6,FD, 1591
  174. 238 DATAD0,CF,A9,07,8D,00,DD,60, 1049
  175. 239 DATA4D,2D,57,50,01,23,A2,0F, 502
  176. 240 DATA8E,00,18,CA,D0,FD,A9,04, 1002
  177. 241 DATA20,65,01,A9,03,20,65,01, 440
  178. 242 DATA4C,03,03,78,85,31,A0,00, 544
  179. 243 DATA84,30,8C,00,18,A2,08,A9, 683
  180. 244 DATA04,FE,4D,2D,57,73,01,23, 618
  181. 245 DATA2C,00,18,F0,FB,2C,00,18, 627
  182. 246 DATAD0,FB,AD,00,18,4A,66,85, 965
  183. 247 DATACA,D0,EB,A5,85,C9,F2,F0, 1626
  184. 248 DATA09,91,30,C8,D0,DE,E6,31, 1111
  185. 249 DATAD0,DA,60,FE,4D,2D,45,50, 1047
  186. 250 DATA01,FF,4C,2F,03,A9,02,8D, 694
  187. 251 DATA00,18,58,A9,E0,20,0E,D5, 764
  188. 252 DATAA5,00,30,FC,F0,F5,C9,01, 1152
  189. 253 DATAF0,14,A9,B0,20,0E,D5,20, 896
  190. 254 DATA99,D5,A9,E2,20,0E,D5,20, 1052
  191. 255 DATA99,D5,C9,01,D0,DD,4C,E7, 1304
  192. 256 DATAEB,A5,00,29,02,F0,0A,20, 725
  193. 257 DATA00,04,20,53,03,F0,11,D0, 587
  194. 258 DATA0C,20,00,04,20,53,03,F0, 406
  195. 259 DATA07,45,22,F0,F4,A9,00,2C, 807
  196. 260 DATAA9,01,4C,69,F9,AC,02,06, 780
  197. 261 DATA84,07,88,AD,01,06,85,06, 594
  198. 262 DATAF0,02,A0,FE,8C,02,06,A9, 973
  199. 263 DATA08,8D,00,18,A9,01,2C,00, 387
  200. 264 DATA18,F0,FB,A0,00,A2,00,8E, 979
  201. 265 DATA00,18,A9,01,2C,00,18,F0, 502
  202. 266 DATA06,E8,D0,F8,4C,4E,03,B9, 1036
  203. 267 DATA01,06,A2,0A,8E,00,18,4A, 419
  204. 268 DATA4A,4A,4A,A6,85,8E,00,18, 687
  205. 269 DATA8D,00,18,0A,29,0F,8D,00, 372
  206. 270 DATA18,B9,01,06,29,0F,8D,00, 413
  207. 271 DATA18,0A,29,0F,8D,00,18,C8, 455
  208. 272 DATAD0,C3,A9,02,8D,00,18,A5, 904
  209. 273 DATA06,60,F2,4C,51,03,58,A9, 761
  210. 274 DATA0A,8D,00,18,A9,12,85,06, 501
  211. 275 DATA8D,05,1C,A0,B1,A2,16,BD, 884
  212. 276 DATAA8,F8,99,47,07,BD,C8,F8, 1284
  213. 277 DATA99,48,07,98,38,E9,08,A8, 849
  214. 278 DATACA,D0,EC,84,1C,84,07,A9, 1114
  215. 279 DATAB0,20,0E,D5,20,99,D5,20, 865
  216. 280 DATA00,C1,A9,E0,20,0E,D5,20, 877
  217. 281 DATA99,D5,F0,0B,A2,0D,8E,00, 934
  218. 282 DATA18,CA,10,FD,4C,5D,01,E6, 895
  219. 283 DATA00,4C,45,D9,20,00,04,A0, 558
  220. 284 DATA00,B9,03,06,29,87,49,82, 573
  221. 285 DATAD0,2A,AA,BD,B6,03,C9,2A, 1037
  222. 286 DATAF0,3D,C9,3F,F0,05,D9,06, 1033
  223. 287 DATA06,D0,19,B9,06,06,49,A0, 669
  224. 288 DATAF0,12,C8,E8,EC,B5,03,90, 1254
  225. 289 DATAE2,E0,10,B0,22,B9,06,06, 873
  226. 290 DATA49,A0,F0,1B,C0,E0,B0,08, 1100
  227. 291 DATA98,29,E0,69,20,A8,D0,C1, 1123
  228. 292 DATAAD,02,06,85,07,AD,01,06, 501
  229. 293 DATA85,06,D0,B0,4C,69,F9,98, 1105
  230. 294 DATA29,E0,A8,B9,04,06,85,06, 767
  231. 295 DATAB9,05,06,85,07,4C,05,F5, 662
  232. 296 DATA00,00,00,00,00,00,00,00, 0
  233. 297 DATA00,00,00,00,00,00,00,00, 0
  234. 298 DATA00,F2,A9,06,85,32,A9,08, 777
  235. 299 DATA85,85,A9,00,85,50,85,33, 832
  236. 300 DATA20,0A,F5,50,FE,B8,AD,01, 979
  237. 301 DATA1C,99,00,06,C8,D0,F4,A0, 999
  238. 302 DATABA,50,FE,B8,AD,01,1C,99, 1059
  239. 303 DATA46,06,C8,D0,F4,A9,41,85, 1095
  240. 304 DATA5B,A9,04,85,2F,84,2E,84, 754
  241. 305 DATA5C,84,5D,A9,06,8D,5A,04, 727
  242. 306 DATA8D,5F,04,8D,64,04,8D,69, 731
  243. 307 DATA04,8D,6E,04,8D,B8,04,8D, 729
  244. 308 DATACB,04,8D,E4,04,8D,F7,04, 972
  245. 309 DATAA4,5C,B9,00,06,85,56,B9, 851
  246. 310 DATA01,06,85,57,B9,02,06,85, 553
  247. 311 DATA58,B9,03,06,85,59,B9,04, 693
  248. 312 DATA06,85,5A,98,18,69,05,85, 648
  249. 313 DATA5C,90,11,A9,07,8D,5A,04, 664
  250. 314 DATA8D,5F,04,8D,64,04,8D,69, 731
  251. 315 DATA04,8D,6E,04,A4,5D,A5,56, 767
  252. 316 DATA29,F8,AA,BD,08,07,85,52, 878
  253. 317 DATAA5,5A,29,1F,AA,BD,C0,F8, 1126
  254. 318 DATA85,55,A5,57,29,3F,4A,AA, 818
  255. 319 DATABD,A0,F8,85,53,A5,58,29, 1107
  256. 320 DATAF0,6A,AA,BD,09,07,05,53, 809
  257. 321 DATA99,01,06,A5,56,29,07,06, 465
  258. 322 DATA57,2A,06,57,2A,AA,BD,C0, 815
  259. 323 DATAF8,05,52,99,00,06,A5,59, 748
  260. 324 DATA29,FC,0A,AA,BD,09,07,85, 811
  261. 325 DATA54,A5,58,29,0F,2A,AA,BD, 794
  262. 326 DATAA0,F8,05,54,99,02,06,A5, 823
  263. 327 DATA5A,29,E0,46,59,6A,46,59, 779
  264. 328 DATA6A,AA,BD,08,07,05,55,99, 723
  265. 329 DATA03,06,98,69,04,85,5D,D0, 704
  266. 330 DATA0E,A9,07,8D,B8,04,8D,CB, 863
  267. 331 DATA04,8D,E4,04,8D,F7,04,C6, 967
  268. 332 DATA5B,F0,03,4C,56,04,AD,00, 673
  269. 333 DATA06,45,47,F0,03,4C,FA,F4, 959
  270. 334 DATAA0,3F,59,01,06,59,41,06, 479
  271. 335 DATA59,81,06,59,C1,06,88,10, 664
  272. 336 DATAF1,4D,01,07,F0,03,4C,02, 647
  273. 337 DATAF5,60,F2,A2,03,B5,FC,9D, 1338
  274. 338 DATADF,D8,CA,10,F8,A2,71,A0, 1340
  275. 339 DATA74,20,A8,D8,A2,D3,A0,71, 1178
  276. 340 DATA20,A8,D8,A2,06,BD,13,03, 795
  277. 341 DATA9D,E2,D8,BD,A1,D8,9D,13, 1341
  278. 342 DATA03,CA,D0,F1,4C,00,71,8C, 983
  279. 343 DATA9E,D8,A2,05,BD,E3,D8,9D, 1330
  280. 344 DATA14,03,CA,10,F7,A2,74,A0, 926
  281. 345 DATA71,20,A8,D8,A2,03,BD,DF, 1106
  282. 346 DATAD8,95,FC,CA,10,F8,A9,00, 1252
  283. 347 DATA4C,F0,09,84,72,E2,FC,8D, 1190
  284. 348 DATA72,86,FD,84,FF,AD,FA,FF, 1566
  285. 349 DATA48,AD,FB,FF,48,A9,57,8D, 1220
  286. 350 DATAFA,FF,A9,D4,8D,FB,FF,A0, 1693
  287. 351 DATA00,84,FC,84,FE,A2,04,B1, 1113
  288. 352 DATAFC,91,FE,C8,D0,F9,E6,FD, 1791
  289. 353 DATAE6,FF,CA,D0,F2,68,8D,FB, 1633
  290. 354 DATAFF,68,8D,FA,FF,60,00,00, 1101
  291.